Aoc 2020 - Day 10 - I Lost My Hair Solving This Problem In Haskell